home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / cat / catfiles.d < prev    next >
Text File  |  1997-10-26  |  2KB  |  56 lines
  1. DEFINITION MODULE CatFiles;
  2.  
  3. FROM SYSTEM IMPORT ADDRESS;
  4.  
  5. TYPE SeekMode = (start, relative, end);
  6.      openMode = (readFile, writeFile, readWrite);
  7.  
  8. CONST (* Zus„tzliche Fehler, die beim GEMDOS nicht direkt angegeben werden *)
  9.       notAllWritten = -1004;
  10.       notAllRead    = -1005;
  11.       crcError      = -1006;
  12.       NoError     = 0;
  13.  
  14. VAR FileError : INTEGER;
  15.  
  16. PROCEDURE GetErrorMsg (nr: INTEGER; VAR str: ARRAY OF CHAR);
  17.  
  18. PROCEDURE ErrorAlert(nr : INTEGER);
  19.  
  20. PROCEDURE OpenFile(REF path, name : ARRAY OF CHAR; mode : openMode):INTEGER;
  21.  
  22. PROCEDURE CreateFile(REF path, name : ARRAY OF CHAR):INTEGER;
  23.  
  24. PROCEDURE WriteFile(c : CHAR; handle : INTEGER);
  25.  
  26. PROCEDURE WriteMuch(howMuch : LONGCARD; handle : INTEGER; where : ADDRESS);
  27.  
  28. PROCEDURE ReadFile(VAR c : CHAR; handle : INTEGER);
  29.  
  30. PROCEDURE ReadMuch(howMuch : LONGCARD; handle : INTEGER; where : ADDRESS);
  31.  
  32. PROCEDURE FilePos(handle : INTEGER):LONGCARD;
  33.  
  34. PROCEDURE Seek(pos : LONGINT; handle : INTEGER; what : SeekMode);
  35.  
  36. PROCEDURE CloseFile(handle : INTEGER);
  37.  
  38. PROCEDURE SetPath(REF path : ARRAY OF CHAR):BOOLEAN;
  39.  
  40. PROCEDURE GetPath(VAR path : ARRAY OF CHAR);
  41.  
  42. PROCEDURE ClearPath(REF path, mask, lock : ARRAY OF CHAR);
  43.  
  44. PROCEDURE DeleteFile(REF path, name : ARRAY OF CHAR):BOOLEAN;
  45.  
  46. PROCEDURE RenameFile(REF path, name, path2, name2 : ARRAY OF CHAR):BOOLEAN;
  47.  
  48. PROCEDURE FileSizeAndDate (REF fname : ARRAY OF CHAR; VAR exists: BOOLEAN;
  49.                            VAR date, time: CARDINAL) : LONGCARD;
  50.  
  51. PROCEDURE FileSize (REF fname : ARRAY OF CHAR; VAR exists: BOOLEAN) : LONGCARD;
  52.  
  53. PROCEDURE Exists (REF fname: ARRAY OF CHAR): BOOLEAN;
  54.  
  55. END CatFiles.
  56.